Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  764 1718 (N33E40 L=269)  1150    145        3 ( 706/1666- 823/1775) -16.4 E49-E32 N29-N35
      2  544 1624 (N21E51 L=259)   947    149        3 ( 509/1565- 574/1695) -33.7 E59-E46 N17-N25
      3 1362 1647 (N46W06 L=316)   626    108        0 (1323/1623-1410/1670)   0.0 W02-W10 N43-N47
      4  595 1559 (N18E43 L=267)   494    125        0 ( 555/1508- 627/1609)  90.0 E43-E41 N14-N21
      5  421 1558 (N14E57 L=252)   540     44        2 ( 395/1534- 452/1582)  21.8 E60-E54 N12-N16
      6 1738 1216 (N27W44 L=354)   779     82        1 (1708/1170-1757/1268) -59.0 W41-W46 N23-N30
      7 1271 1200 (N13W10 L=319)   316    105        0 (1250/1158-1298/1260) -38.7 W07-W12 N10-N15
      8 1841 1159 (N26W57 L=  6)   880    130        0 (1799/1099-1882/1218) -24.4 W51-W63 N23-N29
      9  526 1094 (S11E32 L=277)   441     84        0 ( 485/1073- 577/1114)   0.0 E35-E27 S11-S09
     10 1823  867 (N09W60 L=  9)   545     75        1 (1803/ 834-1854/ 906)  90.0 W57-W63 N06-N10
     11  428  789 (S31E35 L=274)   643    172        1 ( 379/ 725- 479/ 851)  51.3 E39-E31 S36-S26
     12 1248  597 (S22W25 L=335)   325    104        1 (1232/ 550-1271/ 650) -45.0 W22-W28 S24-S19
     13  667  570 (S40E12 L=297)   531    111        1 ( 606/ 551- 718/ 593)  24.0 E17-E08 S41-S37
     14  549  557 (S44E22 L=287)   766     77        1 ( 515/ 523- 581/ 591)  56.3 E25-E19 S46-S40
     15 1516  557 (S17W45 L=355)   431    105        0 (1474/ 531-1544/ 583)  45.0 W42-W47 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