Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1476 1446 (N24W28 L= 52)   605    173        1 (1406/1378-1552/1511) -38.7 W23-W33 N20-N28
      2 1276 1455 (N23W14 L= 38)   217     96        1 (1219/1441-1327/1472)   0.0 W10-W17 N22-N24
      3 1321 1185 (N07W17 L= 41)   283    154        0 (1281/1147-1372/1268) -49.4 W14-W20 N04-N11
      4  667 1182 (N04E23 L=  1)   243     75        0 ( 628/1169- 711/1201)  -9.5 E25-E19 N02-N04
      5 1945 1105 (N08W72 L= 96)  1533    276        2 (1906/1068-1975/1159) -63.4 W65-W80 N05-N11
      6 1059 1129 (N02W02 L= 25)   180     64        0 (1022/1114-1094/1145)  45.0 W00-W03 N00-N03
      7  408  933 (S12E40 L=344)  1425    427        1 ( 281/ 812- 514/1104)  41.8 E51-E32 S18-S01
      8 1803  693 (S19W60 L= 83)  3627    731       13 (1711/ 539-1890/ 851) -72.5 W49-W68 S28-S09
      9 1906  801 (S11W70 L= 94)   733    198        4 (1884/ 770-1931/ 840)  33.7 W66-W74 S12-S08
     10  983  591 (S31E01 L= 23)  2338    555        6 ( 727/ 456-1249/ 746)  32.2 E20-W15 S41-S19
     11 1738  706 (S19W53 L= 76)   347     61        2 (1715/ 685-1759/ 734) -71.6 W50-W54 S19-S16
     12  737  673 (S27E18 L=  6)   552    226        1 ( 637/ 607- 817/ 730)  29.7 E25-E11 S31-S23
     13  316  582 (S33E53 L=331)  1366    282        6 ( 272/ 518- 368/ 639)  82.9 E58-E47 S37-S29
     14  434  607 (S32E42 L=342)   443     77        1 ( 396/ 592- 468/ 627) -11.3 E44-E38 S32-S30
     15 1323  413 (S42W28 L= 52)   342     80        1 (1287/ 388-1362/ 452)  51.3 W25-W29 S43-S38
  

    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