Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1158 1666 (N45W25 L=235)   872    154        2 (1101/1617-1231/1700) -40.6 W20-W28 N40-N48
      2  632 1582 (N48E24 L=186)  1754    400        2 ( 477/1493- 779/1640) -20.0 E43-E10 N39-N53
      3 1600 1533 (N27W54 L=264)   799    119        1 (1540/1500-1632/1571)  -5.7 W48-W58 N24-N28
      4 1111 1502 (N34W14 L=225)  1412    302        3 ( 979/1474-1267/1522) -15.9 W04-W25 N30-N36
      5 1757 1422 (N16W63 L=274)  1536    136        2 (1698/1365-1802/1458) -41.2 W58-W68 N12-N19
      6  544 1398 (N36E30 L=180)   319     72        2 ( 513/1385- 586/1419)  -9.5 E32-E26 N34-N37
      7 1773 1263 (N07W57 L=267)   357     37        0 (1748/1244-1794/1282) -21.8 W54-W59 N05-N08
      8  702 1246 (N24E18 L=192)   225     53        1 ( 674/1226- 728/1268) -33.7 E19-E16 N22-N25
      9  504 1017 (N12E34 L=177)   368    122        1 ( 456/ 989- 559/1033)   7.1 E37-E29 N10-N12
     10  325  962 (N10E49 L=161)   304     77        0 ( 305/ 941- 359/ 994) -45.0 E50-E45 N08-N12
     11  200  917 (N08E63 L=147)   397     60        3 ( 179/ 887- 222/ 944) -45.0 E65-E60 N06-N09
     12  782  863 (S00E17 L=193)   330     65        1 ( 753/ 843- 812/ 894) -18.4 E18-E14 S01-N01
     13  155  852 (N04E71 L=139)   728    101        3 ( 123/ 809- 177/ 891) -35.5 E77-E67 N01-N06
     14 1280  683 (S19W11 L=221)  2405    482        8 (1196/ 572-1409/ 878)  60.9 W04-W19 S26-S06
     15 1128  817 (S08W03 L=213)   503    101        2 (1093/ 777-1158/ 865)  31.0 W00-W05 S10-S05
     16  398  795 (S00E45 L=165)   715    191        1 ( 307/ 759- 474/ 833) -13.0 E52-E39 S03-N02
     17 1153  753 (S12W04 L=214)   257     49        2 (1130/ 718-1175/ 782)  63.4 W02-W05 S14-S10
     18 1086  736 (S12E00 L=210)   219     72        0 (1054/ 718-1123/ 751)   0.0 E02-W02 S13-S10
     19 1154  698 (S15W03 L=213)   426    178        0 (1077/ 677-1215/ 750)  14.0 E01-W07 S16-S12
     20 1549  715 (S21W30 L=240)   486     88        1 (1504/ 689-1591/ 739)   8.1 W26-W33 S22-S20
     21  466  639 (S11E43 L=167)   262    115        0 ( 423/ 626- 527/ 654)  -7.1 E46-E38 S11-S09
     22  566  578 (S16E37 L=173)   319     50        1 ( 540/ 556- 600/ 594)   0.0 E39-E34 S17-S14
     23  460  534 (S18E48 L=162)  1058    212        3 ( 392/ 478- 518/ 583) -24.0 E52-E43 S21-S14
     24  747  459 (S26E28 L=182)  1058    280        2 ( 680/ 357- 824/ 568)  35.8 E37-E19 S32-S19
  

    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