Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  904 1746 (N47E06 L=283)  1094    127        3 ( 861/1704- 952/1813) -61.4 E10-E02 N43-N54
      2 1359 1638 (N36W29 L=318)  1296    262        1 (1222/1614-1473/1659)  -8.5 W18-W38 N34-N37
      3  837 1560 (N33E11 L=278)   928    176        0 ( 757/1535- 922/1579)  -9.5 E16-E04 N30-N34
      4 1731 1499 (N25W59 L=348)   947     97        4 (1687/1465-1789/1535)   0.0 W53-W67 N23-N27
      5 1260 1424 (N21W17 L=306)  1742    506        1 (1100/1220-1362/1519) -61.2 W07-W23 N08-N28
      6  768 1353 (N19E15 L=274)   699    210        0 ( 710/1274- 833/1446) -56.3 E19-E10 N13-N25
      7 1446 1397 (N19W30 L=319)   316     96        0 (1412/1349-1474/1445)  45.0 W26-W32 N16-N22
      8 1738 1332 (N14W53 L=342)  2044    327        4 (1632/1234-1867/1438) -34.4 W44-W65 N08-N21
      9  381 1341 (N20E44 L=245)   704    134        1 ( 328/1298- 428/1398) -24.4 E50-E39 N17-N24
     10 1533 1272 (N11W34 L=323)   445    100        0 (1490/1234-1570/1310) -51.3 W31-W36 N08-N13
     11  196 1255 (N16E63 L=227)   446     59        0 ( 176/1232- 221/1286)  36.9 E65-E59 N14-N18
     12  497 1170 (N09E33 L=256)   680    220        0 ( 441/1113- 557/1236) -48.8 E37-E28 N05-N13
     13 1571  905 (S11W35 L=324)  1633    349        1 (1493/ 769-1659/1063)  63.4 W29-W41 S19-S01
     14 1181  747 (S20W09 L=298)   522    215        1 (1153/ 662-1226/ 828)  79.7 W07-W11 S25-S14
     15 1735  763 (S20W51 L=340)   722    157        3 (1692/ 700-1783/ 819)  53.1 W47-W54 S24-S16
     16 1816  746 (S22W60 L=349)  1196    160        4 (1779/ 669-1855/ 806)  60.9 W57-W64 S26-S17
     17 1524  545 (S34W36 L=325)  1366    268        2 (1419/ 483-1612/ 641)  37.6 W28-W42 S38-S27
     18  886  589 (S29E11 L=278)   284     94        0 ( 853/ 553- 924/ 633)  33.7 E14-E08 S31-S26
     19 1129  459 (S39W05 L=294)   353     78        2 (1094/ 440-1180/ 483)   0.0 W02-W09 S40-S37
     20  794  416 (S41E22 L=267)   514    105        1 ( 737/ 400- 844/ 443)  -6.3 E26-E17 S41-S38
  

    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