Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1247 1626 (N43W06 L=318)   641    112        1 (1218/1580-1276/1671) -50.2 W03-W08 N39-N46
      2  343 1604 (N25E73 L=240)   770     65        0 ( 326/1567- 364/1632) -51.3 E77-E68 N22-N27
      3  675 1432 (N20E30 L=283)   260     81        1 ( 644/1395- 699/1467) -38.7 E33-E27 N17-N21
      4 1808 1275 (N28W58 L= 11)  2303    342        3 (1699/1171-1878/1416) -35.8 W47-W69 N21-N35
      5 1757 1243 (N25W51 L=  4)   578    115        1 (1711/1191-1794/1282) -35.5 W46-W55 N21-N26
      6 1223 1218 (N15W09 L=322)   409    101        1 (1182/1179-1266/1261) -26.6 W06-W12 N12-N16
      7 1349  822 (S07W23 L=336)   241    129        0 (1289/ 800-1397/ 850)  -7.1 W18-W26 S08-S06
      8 1482  691 (S13W35 L=348)   691    183        4 (1441/ 618-1520/ 776) -84.8 W33-W37 S18-S07
      9 1368  686 (S15W27 L=340)   931    243        0 (1296/ 609-1406/ 741)  90.0 W21-W30 S20-S11
     10 1469  581 (S20W38 L=350)  1325    407        3 (1337/ 517-1601/ 668)  40.9 W29-W45 S25-S12
     11  738  605 (S31E13 L=300)  1444    425        2 ( 566/ 549- 932/ 662)  26.6 E26-W00 S37-S23
     12 1605  399 (S30W63 L= 15)  4005    321        6 (1477/ 347-1731/ 499)  32.3 W49-W73 S34-S21
     13 1081  343 (S44W19 L=332)  1144    182        3 (1011/ 319-1175/ 371)  21.0 W13-W27 S46-S41
  

    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