Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  774 1668 (N51W03 L=264)   345     54        0 ( 747/1638- 794/1698)  45.0 W00-W06 N48-N53
      2 1449 1675 (N29W52 L=313)   465     64        1 (1414/1653-1486/1691) -15.9 W48-W55 N27-N30
      3  286 1185 (N31E48 L=212)   682    124        0 ( 233/1146- 334/1222)  15.3 E54-E43 N29-N32
      4  682 1115 (N18E18 L=243)   605    198        1 ( 601/1078- 779/1161) -38.7 E22-E12 N14-N22
      5  411 1087 (N23E37 L=223)   354     98        1 ( 368/1066- 459/1112) -23.2 E40-E33 N20-N24
      6  194 1032 (N24E60 L=201)   395     66        1 ( 176/1000- 220/1068) -53.1 E62-E56 N21-N25
      7  318  949 (N17E48 L=213)   288     46        0 ( 296/ 923- 344/ 968) -36.9 E49-E45 N14-N17
      8 1674  697 (S33W35 L=296)   290     26        0 (1651/ 682-1700/ 711) -11.3 W32-W37 S33-S31
      9 1383  635 (S27W11 L=272)   317     99        1 (1336/ 602-1414/ 670)   9.5 W07-W13 S28-S24
     10 1578  342 (S59W28 L=288)   462    100        1 (1535/ 322-1626/ 364) -14.0 W20-W36 S61-S55
     11 1442  283 (S58W09 L=270)   453     59        0 (1416/ 266-1469/ 304)   8.1 W05-W12 S60-S55
     12 1265  192 (S60E15 L=246)   566     73        0 (1242/ 174-1299/ 223) -74.1 E17-E11 S63-S55
     13 1140  156 (S58E30 L=231)  1504    179        1 (1057/ 128-1216/ 189) -17.4 E40-E20 S62-S53
  

    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