Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1568 1640 (N32W49 L=293)   454     87        0 (1535/1625-1605/1655)   0.0 W45-W52 N31-N33
      2 1674 1577 (N27W55 L=299)   450     90        0 (1651/1555-1709/1597) -36.9 W52-W58 N25-N28
      3  308 1413 (N30E49 L=195)  1085    252        3 ( 243/1371- 379/1464) -26.6 E57-E41 N26-N34
      4 1152 1432 (N22W12 L=256)   381    136        0 (1071/1415-1215/1454)  -6.3 W07-W16 N21-N23
      5  822 1309 (N18E10 L=234)   219     58        1 ( 790/1295- 860/1325)   0.0 E11-E07 N16-N18
      6 1761 1267 (N07W53 L=297)   740    196        1 (1691/1239-1804/1312) -11.3 W47-W57 N05-N09
      7 1195 1283 (N13W13 L=257)   211     44        0 (1166/1267-1228/1296)  18.4 W11-W14 N11-N13
      8  178 1150 (N15E60 L=184)   929    198        4 ( 137/1096- 220/1201)  31.0 E65-E55 N11-N17
      9 1018 1104 (N04W00 L=244)   180     47        0 (1003/1071-1032/1133) -90.0 W00-W01 N01-N05
     10 1345 1067 (S02W20 L=264)   514    126        1 (1293/1032-1414/1109) -35.5 W16-W23 S04-N01
     11  150 1060 (N10E64 L=180)  1227    212        3 ( 102/1017- 191/1101)   4.4 E71-E58 N07-N11
     12 1429  994 (S07W24 L=268)   193     85        1 (1404/ 962-1446/1017)  56.3 W22-W25 S08-S04
     13  171  983 (N05E62 L=182)   660     95        2 ( 147/ 950- 198/1016) -45.0 E65-E59 N02-N06
     14 1822  798 (S22W56 L=300)  1514    209        3 (1784/ 716-1867/ 916)  63.4 W51-W60 S26-S14
     15 1177  860 (S12W08 L=252)   340     53        1 (1154/ 828-1198/ 891)  56.3 W06-W09 S14-S10
     16 1140  670 (S24W04 L=248)   755    272        1 (1023/ 607-1255/ 781)  31.0 E04-W11 S27-S17
     17  335  604 (S19E54 L=190)   579    124        2 ( 306/ 569- 361/ 639) -53.1 E57-E50 S21-S17
     18  358  509 (S26E56 L=189)   774    183        0 ( 323/ 470- 404/ 542)  16.7 E59-E49 S28-S24
     19 1322  375 (S47W17 L=261)   493     59        2 (1284/ 349-1356/ 404)   0.0 W13-W20 S48-S44
     20  963  344 (S45E14 L=230)   469     84        2 ( 931/ 314- 988/ 389)  39.8 E17-E10 S47-S41
  

    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