Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  510 1748 (N23E65 L= 65)   965     71        2 ( 469/1725- 546/1772)  20.6 E69-E59 N21-N25
      2  833 1612 (N22E30 L=101)  1169    238        1 ( 798/1503- 878/1709) -52.4 E34-E24 N15-N28
      3 1451 1626 (N44W09 L=140)   807    119        1 (1387/1594-1514/1646)  18.4 W03-W15 N41-N46
      4 1282 1535 (N31E00 L=130)   450     83        2 (1250/1505-1324/1566) -11.3 E02-W03 N28-N32
      5 1299 1321 (N18W07 L=138)   578    266        1 (1230/1269-1399/1401)   0.0 W01-W13 N15-N21
      6 1818 1316 (N37W50 L=180)   620     46        1 (1795/1293-1841/1349) -26.6 W46-W53 N34-N38
      7 1447 1302 (N21W17 L=147)   235     77        0 (1410/1282-1474/1330)  53.1 W14-W18 N19-N23
      8 1152 1264 (N10W00 L=131)   241     68        1 (1139/1224-1169/1301) -78.7 W00-W01 N07-N12
      9 1774 1164 (N25W45 L=175)   386     83        0 (1734/1133-1810/1184)  40.6 W41-W48 N21-N27
     10 1643 1044 (N13W36 L=167)   925    252        0 (1553/ 988-1733/1137)  -6.7 W27-W44 N11-N15
     11  205 1048 (S25E60 L= 70)   436     88        0 ( 182/1007- 222/1088) -45.0 E63-E57 S27-S22
     12 1778 1035 (N17W48 L=178)   442     71        0 (1744/1011-1805/1066)  33.7 W44-W50 N15-N19
     13  791  800 (S25E07 L=123)  1234    204        3 ( 706/ 745- 882/ 850)  51.3 E12-E01 S30-S20
     14 1697  637 (S06W56 L=186)   430     83        0 (1658/ 621-1735/ 651)  29.7 W52-W59 S08-S04
     15  741  612 (S38E05 L=125)   484     86        1 ( 707/ 587- 792/ 644)   9.5 E07-E01 S39-S36
     16  580  558 (S47E17 L=114)  1241    229        2 ( 533/ 508- 653/ 636) -24.4 E21-E09 S50-S40
     17 1486  534 (S19W45 L=175)   561     96        1 (1459/ 500-1529/ 579)   0.0 W40-W48 S21-S16
     18  903  537 (S38W09 L=139)   381     84        0 ( 862/ 507- 937/ 571)  71.6 W06-W09 S40-S34
     19 1723  478 (S13W71 L=201)  2212    156        5 (1671/ 437-1780/ 518)  37.9 W63-W81 S16-S09
     20 1685  405 (S17W75 L=205)  1043     59        1 (1658/ 387-1715/ 426)  16.7 W70-W83 S19-S15
  

    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