Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1741 1521 (N15W69 L=  8)  3805    383        2 (1601/1420-1844/1669) -67.8 W65-W80 N05-N27
      2 1113 1537 (N35W21 L=319)  1022    284        4 ( 990/1489-1236/1567) -31.0 W12-W27 N29-N38
      3 1398 1487 (N24W37 L=336)   301     98        1 (1354/1468-1447/1508)  -7.1 W33-W41 N22-N25
      4 1537 1384 (N14W42 L=340)   696    141        1 (1489/1340-1590/1449)  14.0 W36-W49 N12-N16
      5  258 1341 (N42E58 L=240)   785    111        1 ( 242/1283- 286/1393) -60.3 E62-E54 N38-N45
      6  547 1245 (N30E26 L=272)   277     71        1 ( 520/1221- 592/1263) -18.4 E28-E22 N29-N31
      7 1019 1203 (N17W04 L=303)   478    161        0 ( 959/1150-1076/1260)  26.6 W00-W08 N15-N19
      8 1227 1157 (N10W15 L=313)   214     81        0 (1197/1137-1262/1190) -53.1 W13-W16 N08-N12
      9 1298 1153 (N08W19 L=318)   425     91        1 (1268/1113-1332/1183)  26.6 W16-W21 N05-N09
     10  837 1156 (N19E08 L=291)   424    159        0 ( 762/1139- 914/1170) -12.5 E12-E03 N17-N20
     11  323 1023 (N21E48 L=251)   333     48        0 ( 289/1007- 349/1039) -18.4 E51-E45 N19-N22
     12  279  941 (N17E53 L=245)   604    143        0 ( 263/ 871- 298/1005) -90.0 E55-E51 N12-N20
     13 1711  665 (S33W40 L=339)   513     61        1 (1692/ 633-1732/ 695) -63.4 W37-W42 S36-S30
     14  263  623 (S03E66 L=233)   457     56        3 ( 237/ 604- 292/ 640) -15.9 E69-E61 S03-S01
     15  541  324 (S26E57 L=241)   919    141        0 ( 499/ 254- 581/ 363)  66.0 E62-E54 S32-S22
  

    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