Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  523 1745 (N40E65 L=193)   812     96        1 ( 507/1697- 539/1785) -30.3 E75-E58 N36-N43
      2  491 1558 (N26E50 L=208)  1111    209        3 ( 444/1475- 555/1613) -32.7 E54-E39 N21-N30
      3  899 1492 (N28E16 L=242)   805    224        1 ( 870/1398- 947/1591) -85.9 E17-E12 N21-N35
      4  492 1403 (N16E42 L=216)   369    110        0 ( 474/1347- 517/1456) -81.9 E43-E40 N12-N19
      5 1214 1370 (N24W08 L=266)   278     85        0 (1173/1340-1242/1391) -31.0 W04-W09 N22-N25
      6 1735 1166 (N18W49 L=307)   365     56        1 (1717/1134-1750/1197)  76.0 W47-W50 N16-N20
      7  289 1071 (S07E52 L=206)   444    133        1 ( 260/1033- 315/1098) -31.0 E54-E49 S08-S04
      8  353 1008 (S09E45 L=213)   642    123        4 ( 306/ 974- 386/1050)  26.6 E49-E42 S11-S06
      9  473  967 (S10E35 L=223)   312     47        2 ( 443/ 948- 500/ 990)  26.6 E37-E33 S11-S08
     10  504  868 (S16E32 L=226)   366    169        0 ( 437/ 839- 573/ 919)  35.0 E37-E27 S18-S11
     11  264  701 (S31E57 L=201)  1736    220        3 ( 183/ 634- 359/ 742)  13.3 E83-E45 S36-S26
     12 1126  542 (S28W14 L=272)   517    124        0 (1069/ 525-1190/ 559)  20.6 W10-W18 S29-S26
     13 1446  450 (S30W42 L=300)  1739    346        2 (1297/ 401-1600/ 506)  27.6 W30-W53 S35-S24
     14 1259  233 (S51W42 L=300)   872    106        1 (1198/ 218-1312/ 255)  -3.8 W34-W50 S52-S48
  

    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