Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1257 1628 (N44W07 L=318)   665    119        1 (1228/1576-1288/1672) -45.0 W03-W09 N39-N46
      2  348 1601 (N25E71 L=240)   749     70        0 ( 331/1565- 372/1635) -45.0 E75-E67 N22-N27
      3 1764 1348 (N32W54 L=  5)  1150    247        0 (1698/1250-1830/1432) -39.8 W47-W61 N26-N36
      4 1035 1340 (N19E04 L=307)   218    100        0 ( 990/1306-1072/1363)  51.3 E06-E02 N16-N21
      5 1231 1226 (N15W10 L=321)   443    166        0 (1184/1169-1279/1294) -40.6 W05-W13 N12-N18
      6 1751 1257 (N26W51 L=  2)   349     75        0 (1723/1228-1780/1278) -18.4 W47-W53 N23-N26
      7 1852 1216 (N24W64 L= 15)   898     66        0 (1824/1185-1873/1258)  51.3 W59-W67 N22-N27
      8  179  875 (S22E66 L=246)   508     64        1 ( 160/ 835- 190/ 904)  63.4 E68-E63 S24-S20
      9 1306  760 (S12W22 L=333)   219    102        0 (1271/ 729-1354/ 783)  51.3 W19-W24 S14-S09
     10 1383  686 (S15W28 L=340)   884    255        0 (1312/ 608-1421/ 741) -77.5 W23-W31 S20-S11
     11 1492  677 (S14W36 L=348)   644    138        5 (1454/ 614-1528/ 730)  90.0 W34-W38 S18-S10
     12 1578  632 (S15W45 L=356)   402     95        1 (1536/ 606-1624/ 663)  33.7 W41-W47 S17-S12
     13  756  602 (S31E11 L=300)  1400    433        2 ( 587/ 550- 948/ 658)  25.6 E24-W01 S37-S23
     14 1589  386 (S31W62 L= 13)  2937    273        4 (1481/ 350-1699/ 457)  25.3 W50-W74 S34-S24
     15 1107  343 (S44W21 L=332)  1273    217        3 (1024/ 314-1220/ 372)  26.6 W14-W29 S47-S39
  

    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