Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  621 1712 (N61E11 L=126)   438     86        0 ( 589/1681- 653/1744)  24.0 E15-E05 N59-N63
      2  546 1505 (N46E21 L=115)   345     46        1 ( 519/1476- 572/1526)  45.0 E23-E18 N44-N48
      3  976 1487 (N32W10 L=147)   281     91        1 ( 932/1464-1016/1508) -45.0 W07-W12 N29-N34
      4 1197 1419 (N22W21 L=158)   212     91        0 (1162/1398-1245/1436)   0.0 W18-W24 N21-N22
      5  459 1163 (N26E32 L=104)   545    191        1 ( 436/1089- 521/1223)  36.9 E34-E26 N21-N29
      6 1817  980 (S20W52 L=188)   885    169        1 (1775/ 907-1886/1027)  12.1 W46-W61 S22-S16
      7 1741  742 (S32W42 L=178)   718    194        0 (1666/ 690-1812/ 810)   7.6 W34-W49 S33-S29
      8  931  672 (S13E14 L=122)   236     57        2 ( 911/ 642- 950/ 707)  53.1 E15-E12 S14-S10
      9  567  568 (S10E40 L= 96)   417     82        0 ( 546/ 527- 591/ 608)  38.7 E43-E37 S12-S08
     10 1499  535 (S38W18 L=154)   263     58        0 (1469/ 516-1531/ 550) -21.8 W15-W20 S38-S36
     11 1383  471 (S38W08 L=144)   277     68        1 (1352/ 455-1417/ 488) -11.3 W05-W10 S39-S36
     12  641  343 (S26E47 L= 89)  1649    204        3 ( 594/ 292- 720/ 436) -84.3 E53-E41 S29-S19
     13 1022  357 (S35E21 L=116)   318     79        0 ( 987/ 333-1050/ 387)  15.9 E24-E17 S36-S33
     14  528  319 (S25E59 L= 77)   487     86        0 ( 487/ 306- 567/ 337)   0.0 E65-E54 S26-S24
  

    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