Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1073 1757 (N46W06 L= 76)   391     48        0 (1044/1740-1102/1781)  11.3 W03-W08 N44-N47
      2 1105 1686 (N40W07 L= 77)   391     68        1 (1084/1652-1131/1728)  71.6 W05-W09 N37-N43
      3 1712 1541 (N29W56 L=126)  2342    273        6 (1587/1469-1825/1615) -20.0 W45-W68 N24-N34
      4  819 1568 (N31E13 L= 57)   839    167        0 ( 734/1510- 880/1604) -28.6 E19-E08 N27-N34
      5 1455 1479 (N24W30 L=100)   721    169        3 (1380/1438-1536/1509)   4.8 W24-W36 N21-N26
      6 1658 1358 (N17W44 L=113)  1396    353        5 (1586/1188-1722/1468) -73.6 W38-W47 N06-N23
      7 1862 1290 (N13W63 L=133)  1908    249        4 (1816/1204-1931/1381) -42.3 W59-W71 N08-N18
      8  418 1046 (S00E38 L= 31)   434    121        2 ( 363/1014- 467/1070) -14.0 E42-E34 S02-N01
      9  198  852 (S10E61 L=  9)  4483    320        7 ( 130/ 710- 299/1008)  57.1 E70-E50 S18-S01
     10  468  810 (S14E37 L= 33)  1503    405        4 ( 440/ 623- 493/1001)  80.1 E40-E34 S25-S02
     11  226  935 (S06E56 L= 14)   363     48        0 ( 210/ 910- 243/ 970) -90.0 E57-E54 S07-S03
     12 1184  930 (S09W09 L= 79)   238    102        0 (1140/ 918-1238/ 947)  -9.5 W06-W12 S09-S07
     13  996  846 (S14E02 L= 68)   454    175        0 ( 931/ 778-1040/ 922) -58.0 E05-W00 S17-S08
     14  641  890 (S10E24 L= 46)   351     59        1 ( 602/ 862- 671/ 921)  11.3 E26-E21 S11-S08
     15 1269  841 (S14W15 L= 85)   205     84        0 (1227/ 811-1291/ 862) -36.9 W12-W16 S16-S12
     16 1172  816 (S16W09 L= 79)   247     89        0 (1158/ 763-1193/ 853)  90.0 W07-W10 S18-S13
     17  286  751 (S17E53 L= 17)   771    153        3 ( 220/ 709- 348/ 785) -20.0 E59-E48 S19-S14
     18  882  692 (S23E10 L= 60)  1281    431        2 ( 725/ 648-1049/ 773)  -5.7 E19-W01 S25-S17
     19 1541  543 (S33W38 L=108)   932    190        2 (1474/ 517-1632/ 570)   8.1 W32-W46 S34-S31
     20  368  465 (S36E58 L= 12)  2049    230        5 ( 305/ 373- 448/ 558)  12.5 E89-E44 S40-S29
     21 1239  438 (S41W16 L= 86)  1512    329        4 (1104/ 370-1399/ 516)  24.4 W05-W27 S45-S34
     22 1197  254 (S56W16 L= 86)   298     44        1 (1173/ 237-1212/ 278)  56.3 W13-W18 S57-S53
  

    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