Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  903 1605 (N36E19 L= 77)  1294    273        2 ( 857/1497- 941/1703) -51.8 E25-E14 N28-N42
      2  570 1575 (N28E42 L= 53)  1276    438        3 ( 498/1450- 637/1696) -33.7 E54-E33 N21-N36
      3 1706 1556 (N46W52 L=147)  1327    279        1 (1667/1516-1747/1597)  25.0 W45-W60 N41-N49
      4  285 1454 (N16E63 L= 32)  4058    476        7 ( 233/1286- 333/1589) -51.7 E71-E53 N06-N25
      5  923 1328 (N18E11 L= 85)   621    260        0 ( 836/1264- 973/1402)  53.1 E15-E07 N13-N22
      6  693 1291 (N12E25 L= 71)   451    143        2 ( 633/1247- 734/1343) -26.6 E29-E21 N09-N14
      7  498 1207 (N04E36 L= 59)   356    129        0 ( 440/1185- 548/1231)  29.7 E40-E33 N02-N06
      8 1564 1138 (N14W34 L=129)   253     63        1 (1545/1113-1587/1169) -33.7 W32-W35 N12-N16
      9 1308 1073 (N07W17 L=112)   503    189        0 (1265/ 973-1343/1154) -55.0 W13-W20 N01-N11
     10 1530 1059 (N09W32 L=127)   330    138        3 (1494/1028-1595/1097)  -8.1 W29-W36 N07-N11
     11  312  910 (S16E48 L= 47)   373     94        0 ( 291/ 870- 340/ 935)  45.0 E49-E45 S18-S14
     12 1170  802 (S11W12 L=107)   265     96        0 (1136/ 776-1214/ 841) -21.8 W09-W14 S12-S09
     13 1565  686 (S13W41 L=136)   624    121        1 (1522/ 641-1589/ 734) -33.7 W37-W44 S15-S09
     14 1246  468 (S32W25 L=120)   269     47        1 (1216/ 451-1269/ 493)  26.6 W22-W26 S33-S29
     15  783  454 (S40E09 L= 86)   542    106        1 ( 731/ 435- 830/ 478)  14.0 E13-E05 S42-S37
  

    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