Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  445 1579 (N21E54 L= 42)   428     96        0 ( 414/1554- 484/1592)  36.9 E57-E51 N18-N21
      2  412 1282 (N02E45 L= 51)   327     49        1 ( 381/1263- 441/1300)  21.8 E47-E42 N00-N03
      3 1200 1211 (N13W07 L=103)   495    128        0 (1157/1170-1257/1273) -29.7 W03-W10 N11-N15
      4  584  986 (S12E26 L= 70)   420    117        1 ( 570/ 926- 600/1054) -74.1 E28-E25 S15-S08
      5 1184  927 (S04W11 L=107)   543    176        0 (1138/ 834-1216/1011) -52.1 W06-W14 S09-N00
      6 1786  919 (N08W54 L=150)   629    153        0 (1741/ 868-1824/ 954) -16.7 W49-W59 N05-N09
      7 1360  884 (S03W23 L=119)   292     72        0 (1339/ 842-1380/ 922) -78.7 W21-W23 S05-N00
      8 1021  704 (S21W06 L=103)   661    222        1 ( 902/ 673-1124/ 751)  36.0 W00-W11 S24-S16
      9  708  609 (S33E12 L= 84)   601    210        0 ( 645/ 552- 803/ 649)  42.0 E16-E06 S38-S29
     10 1369  619 (S18W31 L=127)   308     89        0 (1328/ 576-1414/ 646)  59.0 W29-W33 S21-S16
     11 1475  610 (S17W38 L=134)   302     39        0 (1455/ 585-1494/ 634)  63.4 W36-W39 S18-S15
     12 1534  561 (S18W44 L=141)   398     81        1 (1507/ 532-1556/ 594)  90.0 W42-W46 S20-S15
     13  896  503 (S36W03 L= 99)   368     70        0 ( 874/ 471- 924/ 546)  90.0 W01-W04 S38-S32
     14 1546  462 (S24W50 L=146)   452    157        0 (1492/ 452-1603/ 472)  11.3 W45-W55 S25-S22
     15 1408  271 (S40W52 L=149)  1763    283        1 (1286/ 241-1516/ 303)  35.5 W44-W60 S45-S35
  

    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