Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  942 1800 (N53W02 L= 67)   478    121        0 ( 908/1763- 989/1838)  36.9 E01-W07 N49-N55
      2  910 1668 (N41E02 L= 63)   843    204        1 ( 835/1639-1009/1700) -21.0 E08-W05 N38-N43
      3  666 1528 (N33E21 L= 45)   838    165        3 ( 618/1485- 728/1560) -26.6 E24-E16 N30-N35
      4 1444 1459 (N22W31 L= 97)   410    121        2 (1383/1428-1499/1485) -20.6 W27-W35 N19-N23
      5 1397 1339 (N15W26 L= 92)   442    162        1 (1313/1321-1469/1356) -11.3 W20-W30 N13-N16
      6  429 1296 (N20E37 L= 28)   753    241        2 ( 357/1232- 519/1350) -31.6 E43-E30 N15-N23
      7 1833 1305 (N10W61 L=127)   798    188        4 (1793/1254-1867/1342) -26.6 W57-W65 N06-N12
      8  977 1275 (N14E01 L= 65)   452    159        0 ( 921/1232-1027/1327)  39.8 E04-W02 N11-N16
      9  251 1029 (N05E53 L= 13)  1090    274        2 ( 188/ 914- 292/1152)  47.5 E61-E48 N00-N12
     10 1889  986 (S10W63 L=129)   395    109        0 (1855/ 971-1920/ 998)  -7.1 W59-W67 S10-S08
     11 1810  900 (S14W54 L=120)   365     74        1 (1797/ 861-1823/ 939) -76.0 W52-W55 S16-S12
     12 1008  834 (S13E02 L= 63)   279     82        1 ( 985/ 788-1031/ 876)  51.3 E04-W00 S15-S10
     13 1448  610 (S30W26 L= 91)   548    154        0 (1387/ 540-1514/ 678)  45.0 W21-W30 S34-S26
     14  565  327 (S42E46 L= 19)   664    106        0 ( 520/ 309- 617/ 345)  -6.3 E50-E41 S43-S40
  

    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