Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  876 1741 (N46E10 L= 75)   329     45        0 ( 854/1714- 902/1762)  45.0 E12-E08 N43-N47
      2  899 1664 (N39E08 L= 78)   278     42        0 ( 880/1646- 926/1689) -63.4 E09-E05 N37-N41
      3 1515 1553 (N30W38 L=123)  3251    436        2 (1351/1463-1709/1655) -24.0 W26-W53 N23-N37
      4  585 1550 (N32E31 L= 55)   547    101        1 ( 533/1514- 630/1575) -26.6 E35-E27 N28-N33
      5 1267 1465 (N24W17 L=103)   393    105        0 (1210/1447-1321/1479)   0.0 W13-W20 N22-N24
      6 1489 1292 (N12W30 L=116)   690    195        3 (1463/1183-1506/1380)  81.3 W28-W31 N05-N18
      7 1782 1326 (N15W56 L=141)   537     67        3 (1755/1297-1813/1354)  20.6 W52-W60 N13-N16
      8 1306 1288 (N12W18 L=104)   305    108        1 (1291/1243-1327/1348) -90.0 W17-W19 N09-N16
      9 1797 1227 (N09W55 L=141)  1024    126        2 (1769/1172-1835/1278) -90.0 W52-W58 N05-N11
     10  285  798 (S14E53 L= 33)  4098    665        6 ( 180/ 519- 342/1105)  83.7 E64-E49 S31-N05
     11 1893  970 (S06W65 L=151)   461     55        2 (1861/ 957-1921/ 986)  14.0 W60-W69 S07-S05
     12 1010  924 (S09E01 L= 85)   235     69        0 ( 985/ 891-1028/ 954) -56.3 E02-W00 S10-S07
     13  155  812 (S12E68 L= 17)  5769    317       12 (  87/ 709- 234/ 952) -51.8 E81-E60 S18-S03
     14  902  928 (S08E08 L= 78)   270     80        1 ( 863/ 911- 947/ 949) -11.3 E09-E04 S09-S07
     15  994  856 (S13E02 L= 83)   300    121        1 ( 965/ 816-1031/ 907) -71.6 E03-W00 S15-S09
     16  437  876 (S10E39 L= 47)   256     56        0 ( 413/ 854- 470/ 894)  14.0 E40-E36 S11-S08
     17  766  762 (S18E17 L= 69)   847    295        1 ( 704/ 663- 808/ 889) -90.0 E20-E14 S24-S10
     18  225  839 (S11E58 L= 27)   400     78        0 ( 207/ 795- 243/ 876) -68.2 E59-E56 S13-S08
     19  455  819 (S13E38 L= 48)   290    109        1 ( 440/ 762- 479/ 857)  51.3 E39-E35 S16-S11
     20 1837  731 (S21W63 L=149)   933     88        3 (1806/ 697-1885/ 756)  10.3 W58-W70 S23-S19
     21  584  680 (S22E31 L= 55)  1101    215        4 ( 498/ 647- 684/ 751) -30.3 E36-E23 S24-S17
     22 1542  638 (S27W36 L=122)   304     73        1 (1513/ 603-1566/ 679)  59.0 W33-W37 S29-S24
     23 1682  597 (S30W50 L=136)   392     58        1 (1663/ 571-1711/ 626) -18.4 W47-W53 S31-S27
     24 1398  554 (S33W26 L=112)   346     86        0 (1357/ 538-1444/ 572)   0.0 W22-W29 S33-S31
     25  984  399 (S43E05 L= 81)  1645    391        4 ( 822/ 313-1142/ 493)  24.0 E20-W07 S49-S36
  

    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