Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  825 1585 (N25E23 L= 83)   749    225        0 ( 744/1507- 897/1648) -29.7 E30-E16 N20-N28
      2  263 1525 (N15E70 L= 36)   803     73        1 ( 227/1511- 305/1541)  -3.4 E79-E62 N14-N16
      3 1826 1365 (N31W57 L=162)   497    106        0 (1789/1328-1867/1395) -11.3 W51-W62 N29-N32
      4  245 1181 (S06E57 L= 49)  2601    389        6 ( 153/1072- 343/1311)  41.4 E66-E49 S13-N02
      5  249 1104 (S11E55 L= 51)   932     89        3 ( 208/1062- 284/1139)  20.6 E59-E51 S13-S08
      6  650 1056 (S10E23 L= 83)   216    113        0 ( 629/1010- 686/1107) -51.3 E24-E20 S12-S06
      7  293  933 (S21E50 L= 56)  1695    289        9 ( 234/ 784- 361/1023)  58.0 E56-E43 S30-S14
      8 1068  967 (S09W03 L=109)   259    151        1 (1004/ 938-1113/1015)  50.2 W00-W05 S11-S05
      9  227  977 (S19E57 L= 49)   342     74        1 ( 202/ 954- 261/ 995)  18.4 E59-E53 S20-S17
     10  408  767 (S30E40 L= 66)   882    217        0 ( 382/ 659- 425/ 877)  70.3 E43-E37 S37-S23
     11 1756  633 (S15W61 L=166)   465     32        0 (1735/ 607-1774/ 659)  56.3 W58-W62 S16-S13
     12 1770  566 (S18W67 L=173)   912    128        1 (1725/ 533-1811/ 616)  54.5 W63-W70 S20-S13
     13 1225  461 (S37W26 L=132)   271     92        0 (1208/ 422-1240/ 511) -56.3 W24-W28 S39-S33
     14 1555  340 (S36W63 L=169)  1415    133        4 (1505/ 292-1617/ 373)  20.0 W57-W73 S39-S33
  

    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