Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  989 1717 (N49W25 L= 36)   274     85        2 ( 950/1693-1027/1735)   0.0 W20-W29 N48-N50
      2 1504 1465 (N17W43 L= 55)   467    107        2 (1465/1428-1558/1499) -63.4 W41-W45 N13-N19
      3 1205 1276 (N16W17 L= 29)   759    259        2 (1078/1241-1311/1323) -36.9 W11-W23 N11-N21
      4  865 1130 (N17E06 L=  5)  1812    481        5 ( 720/ 999-1028/1302) -66.3 E11-W00 N05-N30
      5 1274 1181 (N09W18 L= 30)   621    160        7 (1226/1110-1338/1230)  16.7 W13-W23 N05-N10
      6  221 1156 (N33E58 L=313)   454     82        0 ( 195/1133- 258/1184) -18.4 E61-E52 N31-N35
      7  427 1139 (N28E36 L=335)   262     58        0 ( 398/1119- 458/1157)   0.0 E38-E33 N27-N28
      8  172  872 (N17E67 L=304)   554     54        1 ( 140/ 858- 203/ 888)   0.0 E73-E62 N15-N17
      9  524  808 (N07E35 L=336)   359    109        0 ( 473/ 782- 561/ 849)  14.0 E39-E31 N05-N08
     10 1663  649 (S35W32 L= 44)  1847    357        1 (1527/ 548-1766/ 773)  16.9 W19-W43 S38-S29
     11 1179  651 (S18E01 L= 10)   213    108        0 (1155/ 596-1192/ 702)  56.3 E04-W00 S21-S15
     12  652  467 (S16E39 L=332)   306     55        1 ( 624/ 439- 677/ 485)   0.0 E41-E36 S17-S14
     13 1382  374 (S45W04 L= 15)   794    131        1 (1344/ 314-1423/ 420)  36.9 W00-W08 S49-S42
     14 1305  303 (S48E05 L=  6)   706     90        1 (1278/ 262-1340/ 346)  54.5 E09-E02 S50-S43
     15 1244  264 (S49E12 L=359)   350     39        1 (1223/ 242-1269/ 284)  78.7 E13-E09 S51-S46
  

    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