Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1196 1840 (N58E19 L=219)   920     58        2 (1167/1801-1220/1878) -68.2 E24-E14 N53-N63
      2 1416 1333 (N25W16 L=254)   298    124        0 (1385/1289-1456/1390) -39.8 W13-W19 N22-N27
      3 1766 1184 (N26W47 L=285)  1916    357        1 (1667/1036-1861/1312) -28.6 W36-W60 N19-N31
      4  272  952 (S25E51 L=186)   892    209        1 ( 227/ 871- 334/1025)  73.3 E56-E45 S29-S19
      5 1240  667 (S18W22 L=259)   210     99        0 (1195/ 654-1293/ 679)  26.6 W19-W25 S19-S16
      6 1184  511 (S29W25 L=262)  1897    451        3 ( 974/ 444-1378/ 575)  40.6 W13-W35 S38-S19
      7 1447  458 (S25W46 L=283)   518    113        0 (1398/ 416-1488/ 496)  74.1 W44-W47 S28-S21
      8 1496  305 (S32W64 L=302)  1249    126        1 (1435/ 289-1566/ 327)   9.0 W56-W76 S34-S30
  

    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