Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1588 1471 (N21W50 L=129)  1178    246        2 (1484/1412-1681/1535)   2.4 W38-W62 N19-N22
      2 1280 1202 (N12W19 L= 98)   267     76        0 (1238/1188-1321/1218) -21.8 W16-W21 N11-N13
      3  192 1173 (N27E65 L= 15)   436     62        1 ( 170/1152- 217/1191) -23.2 E68-E60 N25-N28
      4 1831 1127 (S05W59 L=138)   904    180        2 (1777/1054-1875/1186) -76.0 W54-W64 S08-N00
      5 1397  941 (S05W21 L=100)   608    250        1 (1333/ 871-1457/1055) -71.6 W18-W24 S10-N02
      6 1724  974 (S11W45 L=124)   357    135        0 (1692/ 923-1739/1030)  51.3 W41-W46 S13-S07
      7 1781  934 (S15W50 L=129)   728     83        1 (1758/ 902-1814/ 982) -63.4 W47-W53 S17-S11
      8 1506  739 (S20W25 L=104)   500    180        1 (1489/ 664-1523/ 816)  71.6 W24-W27 S24-S15
      9  405  646 (S07E49 L= 30)   455     88        0 ( 387/ 606- 428/ 686) -90.0 E50-E47 S09-S04
     10  872  597 (S16E17 L= 62)   391    141        0 ( 859/ 541- 894/ 661)  63.4 E18-E14 S20-S12
     11  304  534 (S14E66 L= 13)  3147    201        7 ( 261/ 459- 339/ 633)  55.3 E78-E59 S19-S06
     12  422  557 (S13E51 L= 28)  1703    246        2 ( 366/ 483- 499/ 622)  29.7 E59-E43 S17-S09
     13 1583  575 (S33W31 L=110)   974    123        2 (1517/ 547-1631/ 619) -20.0 W25-W36 S36-S30
     14  614  501 (S19E38 L= 41)   517    128        1 ( 591/ 432- 628/ 564)  52.1 E41-E34 S23-S14
     15 1161  499 (S29E01 L= 78)   451    127        1 (1139/ 444-1188/ 563)  69.4 E03-W00 S32-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