Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1476 1571 (N25W42 L=187)   344    107        0 (1419/1548-1513/1601)   6.3 W37-W46 N23-N26
      2 1529 1462 (N17W41 L=187)  1142    337        2 (1391/1414-1670/1517) -19.3 W33-W53 N13-N22
      3  229 1287 (N30E55 L= 90)  1686    213        3 ( 180/1207- 301/1389)  45.0 E61-E48 N25-N35
      4  489 1326 (N28E30 L=116)   596    170        1 ( 440/1237- 532/1387) -61.4 E34-E27 N21-N32
      5  854 1313 (N21E05 L=140)  1006    443        1 ( 661/1252-1018/1346) -20.9 E17-W04 N17-N25
      6  133 1218 (N27E69 L= 77)  1297     96        1 (  87/1184- 174/1247) -12.3 E84-E61 N24-N29
      7  447 1069 (N13E35 L=111)   924    332        0 ( 352/ 981- 510/1178)  31.6 E43-E29 N08-N18
      8 1141 1140 (N06W09 L=154)   237     85        0 (1114/1095-1172/1174) -68.2 W07-W09 N02-N07
      9 1891 1032 (S14W62 L=208)  2496    217        9 (1857/ 948-1945/1138) -71.6 W59-W71 S19-S07
     10 1463 1075 (S03W27 L=172)   193     83        0 (1446/1034-1481/1115)  53.1 W25-W28 S05-S01
     11 1417 1032 (S05W23 L=169)   317    102        1 (1386/ 985-1454/1067) -71.6 W21-W24 S08-S02
     12 1653 1021 (S10W39 L=185)   251     70        1 (1619/1001-1685/1044)   0.0 W36-W41 S10-S08
     13 1168 1008 (S02W08 L=153)   244     74        1 (1142/ 983-1193/1033) -71.6 W06-W09 S03-N00
     14  243  950 (N09E54 L= 92)   929    148        2 ( 218/ 881- 278/1018) -90.0 E55-E50 N05-N13
     15 1741  918 (S18W45 L=191)   894    165        1 (1713/ 846-1782/ 996)  77.5 W43-W49 S21-S12
     16 1835  963 (S17W55 L=201)   405     45        0 (1819/ 930-1856/ 988)  45.0 W53-W57 S18-S15
     17 1525  905 (S14W28 L=174)   359    104        0 (1473/ 876-1554/ 943)   9.5 W24-W30 S15-S12
     18 1225  794 (S16W08 L=153)   387    110        1 (1184/ 761-1279/ 830)  18.4 W05-W11 S17-S14
     19  217  695 (S05E64 L= 82)  3502    279       13 ( 138/ 611- 291/ 787) -73.3 E73-E56 S10-N00
     20  389  690 (S08E47 L= 98)  1090    309        1 ( 272/ 609- 457/ 751) -42.3 E56-E42 S13-S02
     21  333  651 (S09E53 L= 92)   881    177        1 ( 305/ 607- 367/ 713)  80.5 E57-E49 S11-S05
     22  974  663 (S19E09 L=136)   475    167        1 ( 906/ 633-1059/ 690)  -5.7 E13-E03 S20-S17
     23 1514  629 (S31W26 L=171)   351     89        0 (1486/ 589-1544/ 683)  51.3 W23-W28 S33-S28
     24 1131  586 (S27E01 L=144)   375    148        0 (1066/ 569-1208/ 607) -14.0 E05-W03 S27-S24
     25 1087  219 (S54E17 L=129)   849    128        0 (1018/ 188-1143/ 246)   0.0 E24-E10 S55-S51
     26  756  174 (S49E52 L= 94)  1136    109        2 ( 729/ 114- 778/ 226)  28.8 E65-E45 S55-S44
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y