Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  644 1682 (N40E43 L=124)   596     83        1 ( 604/1650- 680/1719) -18.4 E50-E38 N37-N42
      2  428 1615 (N32E61 L=106)   694     90        0 ( 411/1574- 448/1662) -26.6 E67-E54 N29-N35
      3 1273 1585 (N41W13 L=179)   779    148        1 (1217/1545-1344/1631) -16.7 W07-W18 N38-N44
      4  642 1432 (N23E31 L=135)   616    138        3 ( 608/1375- 677/1499)  90.0 E32-E29 N18-N27
      5 1494 1220 (N18W29 L=195)   335    145        0 (1471/1170-1534/1285) -50.2 W27-W32 N15-N21
      6  289  881 (S15E52 L=114)  4121    520        3 ( 187/ 659- 391/1050)  39.5 E76-E42 S31-S03
      7 1397  920 (S01W24 L=191)   210     92        0 (1351/ 906-1439/ 932)   9.5 W21-W27 S02-N00
      8 1696  743 (S10W51 L=217)   694    133        1 (1680/ 681-1724/ 801)  90.0 W48-W52 S13-S05
      9 1652  718 (S12W47 L=213)   300    124        0 (1616/ 677-1672/ 774)  81.9 W44-W49 S14-S07
     10 1236  748 (S14W16 L=182)   280     87        0 (1194/ 732-1283/ 761)  -9.5 W13-W19 S14-S12
     11 1590  677 (S15W43 L=209)   269     58        1 (1575/ 653-1603/ 710) -76.0 W42-W44 S16-S12
     12 1623  503 (S26W54 L=220)  1491    189        2 (1536/ 464-1700/ 545)  28.3 W46-W60 S29-S22
     13 1262  436 (S34W26 L=192)   720    114        1 (1202/ 415-1323/ 454)  18.4 W20-W29 S36-S32
  

    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