Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1107 1647 (N39E10 L=141)  1187    280        1 ( 984/1594-1219/1711)  -5.4 E21-W00 N36-N42
      2  497 1621 (N23E54 L= 97)   999    215        0 ( 454/1560- 549/1705) -70.0 E59-E49 N19-N30
      3  494 1513 (N17E48 L=103)   337     80        0 ( 478/1492- 520/1550) -21.8 E50-E44 N15-N18
      4 1225 1485 (N31W03 L=154)   411    110        1 (1182/1446-1257/1529)  66.8 W00-W04 N27-N34
      5 1753 1388 (N38W50 L=201)  1344    219        2 (1685/1304-1831/1454) -23.6 W42-W60 N33-N41
      6  480 1371 (N08E43 L=108)   278     49        1 ( 466/1341- 493/1405) -45.0 E44-E41 N05-N09
      7  917 1344 (N15E13 L=138)   253    101        0 ( 876/1317- 956/1381)  51.3 E15-E11 N12-N17
      8  232 1280 (S02E63 L= 88)  1024    134        2 ( 191/1225- 280/1308)  39.8 E68-E58 S05-N00
      9  912 1231 (N08E11 L=140)   245     72        0 ( 873/1219- 951/1243)  11.3 E13-E08 N07-N08
     10 1556 1154 (N17W31 L=182)   255     24        0 (1536/1133-1575/1173)  56.3 W29-W32 N15-N18
     11 1778 1082 (N18W51 L=202)   472    114        1 (1738/1052-1807/1113)  23.2 W47-W54 N15-N20
     12 1611 1056 (N13W37 L=188)   253     65        1 (1591/1035-1640/1086) -26.6 W35-W39 N10-N14
     13  485 1057 (S11E35 L=117)   230     63        2 ( 467/1024- 507/1085)  63.4 E35-E33 S12-S08
     14 1802  955 (N11W56 L=207)   464    142        0 (1792/ 898-1823/1026) -54.5 W53-W59 N08-N15
     15  812  878 (S15E10 L=142)   274    137        1 ( 779/ 817- 839/ 936)  90.0 E10-E08 S18-S10
     16  244  743 (S35E58 L= 93)  1820    250        4 ( 176/ 647- 319/ 813)  19.7 E85-E46 S43-S29
     17 1319  745 (S12W24 L=175)   554    160        0 (1260/ 714-1383/ 803) -12.5 W19-W28 S12-S09
     18 1087  714 (S19W11 L=162)   283    110        2 (1050/ 675-1119/ 762)  80.5 W09-W12 S21-S15
     19 1732  662 (S08W59 L=210)   501     72        2 (1704/ 628-1760/ 693)  76.0 W55-W61 S09-S05
     20 1663  627 (S11W53 L=205)   660    101        4 (1634/ 577-1690/ 678) -39.8 W50-W57 S13-S08
     21 1753  599 (S11W65 L=216)   787     53        1 (1727/ 562-1774/ 632) -78.7 W61-W67 S13-S08
     22 1383  501 (S25W37 L=189)   363    106        0 (1333/ 480-1425/ 528)  51.3 W34-W39 S27-S22
     23 1481  402 (S29W51 L=203)   610    170        0 (1405/ 383-1564/ 434)  32.5 W45-W56 S31-S24
  

    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