Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1353 1635 (N31W42 L=250)   656    171        0 (1281/1617-1438/1649) -26.6 W37-W48 N27-N33
      2 1721 1520 (N12W64 L=272)  2228    480        3 (1668/1388-1785/1590)  14.6 W51-W77 N07-N15
      3 1579 1487 (N15W50 L=257)   412     76        1 (1545/1455-1614/1519) -71.6 W48-W51 N12-N18
      4  871 1348 (N29W00 L=207)   267     75        1 ( 830/1326- 911/1364) -14.0 E02-W02 N27-N30
      5 1333 1316 (N14W26 L=233)  2259    619        6 (1051/1276-1587/1344) -26.6 W09-W41 N05-N21
      6  544 1170 (N27E26 L=182)   523    137        1 ( 514/1101- 567/1234) -90.0 E27-E24 N22-N31
      7 1819 1132 (S11W55 L=262)  1062    216        3 (1774/1052-1850/1192)  54.5 W51-W59 S15-S07
      8 1769 1118 (S10W50 L=257)   319     63        1 (1746/1101-1795/1135) -21.8 W47-W52 S11-S08
      9  921 1011 (N09E06 L=201)   292    117        1 ( 898/ 946- 939/1072)  50.2 E08-E03 N05-N11
     10 1595 1031 (S09W34 L=241)   279     84        5 (1564/1006-1621/1051) -63.4 W31-W35 S11-S07
     11  201  918 (N19E60 L=147)   526     77        1 ( 184/ 880- 218/ 960) -78.7 E61-E58 N16-N21
     12  973  911 (N02E06 L=202)   525    120        1 ( 907/ 888-1042/ 939) -33.7 E08-E02 N00-N04
     13 1240  848 (S09W07 L=215)   248     38        1 (1225/ 821-1258/ 874)  45.0 W05-W08 S10-S07
     14 1845  829 (S30W51 L=258)   479     64        1 (1817/ 809-1868/ 847) -31.0 W48-W53 S32-S27
     15 1354  670 (S23W10 L=217)  1706    379        5 (1276/ 504-1400/ 827)  77.2 W04-W12 S33-S10
     16  375  467 (S11E62 L=145)  3230    629       13 ( 290/ 347- 462/ 550) -76.0 E69-E54 S20-S04
     17  788  487 (S18E29 L=178)   290     49        1 ( 752/ 463- 817/ 511) -56.3 E31-E28 S20-S16
     18  549  433 (S16E48 L=159)   586    305        2 ( 529/ 357- 578/ 493)  36.0 E54-E43 S20-S12
     19  809  297 (S32E38 L=169)   958    198        1 ( 771/ 241- 845/ 364)  33.7 E43-E31 S35-S27
     20  730  268 (S32E45 L=162)   482    113        1 ( 694/ 246- 761/ 294)   8.1 E49-E42 S32-S29
  

    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