Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  425 1421 (N43E38 L=267)   450    119        0 ( 392/1397- 465/1447) -32.0 E41-E33 N40-N45
      2  315 1368 (N41E48 L=257)   573    100        0 ( 297/1334- 338/1421) -56.3 E50-E45 N38-N44
      3 1682 1355 (N10W52 L=357)   427    108        1 (1633/1319-1718/1392) -56.3 W49-W54 N07-N13
      4  796 1344 (N31E08 L=297)   444     90        1 ( 765/1295- 834/1389)  51.3 E09-E04 N27-N32
      5  351 1109 (N24E44 L=261)  1386    401        2 ( 293/ 946- 472/1237) -59.0 E49-E36 N12-N32
      6  570  986 (N13E29 L=276)   462    125        3 ( 524/ 934- 625/1028) -33.7 E31-E25 N09-N15
      7 1453  908 (S09W23 L=328)   689    226        0 (1369/ 856-1548/ 972) -38.7 W19-W29 S12-S03
      8  767  930 (N06E17 L=288)   249     77        0 ( 728/ 906- 795/ 969)  21.8 E19-E14 N05-N08
      9 1000  605 (S18E10 L=295)  1275    335        3 ( 916/ 497-1052/ 747)  47.1 E18-E04 S23-S09
     10  341  647 (S04E55 L=250)   374     84        1 ( 310/ 619- 372/ 670) -45.0 E58-E52 S06-S02
     11  237  612 (S06E70 L=235)   742    194        2 ( 200/ 591- 272/ 631)  -4.8 E77-E64 S07-S04
     12  425  550 (S11E51 L=254)   380    109        1 ( 394/ 530- 453/ 581)  23.2 E54-E47 S12-S09
     13  478  396 (S23E54 L=250)   761    135        0 ( 423/ 371- 520/ 414) -23.2 E60-E50 S24-S21
     14 1004  338 (S37E19 L=286)   293     61        1 ( 983/ 313-1025/ 364)  45.0 E20-E16 S38-S34
  

    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