Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1582 1636 (N45W53 L= 46)   730     61        1 (1554/1614-1614/1660) -21.8 W48-W56 N43-N46
      2  741 1547 (N35E24 L=329)   343     51        0 ( 722/1516- 762/1580) -45.0 E26-E21 N33-N37
      3 1726 1472 (N33W59 L= 52)   726     66        1 (1692/1440-1753/1496) -45.0 W55-W63 N30-N34
      4 1056 1463 (N31W01 L=354)   502    226        0 ( 971/1405-1145/1495) -20.0 E05-W06 N27-N32
      5 1473 1438 (N30W32 L= 25)   416    191        0 (1398/1391-1547/1465)  -9.5 W25-W37 N27-N32
      6 1047 1384 (N25W00 L=353)   483    230        0 ( 961/1303-1124/1435) -38.7 E05-W05 N20-N28
      7  219 1259 (N13E64 L=290)  1843    135        6 ( 173/1211- 256/1309)  39.8 E71-E59 N10-N16
      8 1325 1202 (N15W19 L= 12)   383    145        1 (1258/1171-1375/1241) -26.6 W14-W22 N12-N16
      9 1823  921 (S02W59 L= 52)  1064    136        2 (1791/ 870-1863/ 980) -40.6 W55-W64 S05-N01
     10  672  871 (S08E22 L=331)   371    159        2 ( 640/ 806- 701/ 929)  82.9 E23-E19 S12-S04
     11 1271  798 (S10W16 L=  9)   640    207        1 (1206/ 733-1335/ 884) -48.4 W11-W20 S14-S05
     12 1819  779 (S11W62 L= 55)   530     70        1 (1799/ 749-1839/ 815)  68.2 W59-W64 S13-S08
     13  280  688 (S22E57 L=296)   498     88        3 ( 266/ 647- 295/ 732)  45.0 E60-E54 S24-S19
     14 1081  644 (S21W05 L=358)   857    201        2 (1021/ 557-1133/ 728) -74.7 W01-W09 S26-S15
     15 1197  662 (S19W12 L=  6)   652    160        3 (1147/ 591-1226/ 710) -69.4 W09-W14 S24-S16
     16  572  530 (S31E32 L=321)  1348    234        3 ( 519/ 474- 665/ 616) -37.9 E35-E24 S35-S25
     17  274  572 (S30E64 L=289)  2038    100        3 ( 217/ 540- 316/ 601)   9.8 E85-E56 S33-S27
     18  948  539 (S29E04 L=349)   605    143        2 ( 873/ 509- 994/ 575)  32.0 E08-W00 S31-S25
     19 1617  483 (S31W51 L= 44)  1672    295        2 (1474/ 431-1721/ 540)  20.0 W38-W61 S35-S27
  

    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