Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  991 1818 (N43E34 L=184)   484     56        1 ( 970/1793-1014/1844) -78.7 E36-E30 N40-N45
      2 1387 1685 (N47W02 L=220)  1626    211        1 (1335/1611-1457/1743) -85.9 W00-W09 N40-N54
      3 1815 1359 (N41W51 L=269)   908     89        1 (1773/1321-1848/1389)  -5.7 W44-W56 N38-N42
      4 1712 1337 (N34W37 L=255)   418     74        0 (1697/1305-1727/1375)  80.5 W35-W38 N31-N37
      5 1505 1321 (N25W20 L=238)   247     55        0 (1473/1300-1535/1339)   0.0 W17-W22 N24-N26
      6  658  677 (S36E13 L=205)   312     63        0 ( 644/ 644- 678/ 712) -76.0 E14-E11 S37-S33
      7  945  667 (S28W06 L=224)   403    130        0 ( 898/ 627-1010/ 694)  50.2 W04-W09 S31-S24
      8 1232  572 (S24W27 L=245)   233     86        0 (1193/ 561-1283/ 581)  31.0 W24-W29 S25-S22
      9  703  559 (S42E06 L=212)   250     35        0 ( 684/ 538- 727/ 576)  56.3 E07-E04 S43-S40
     10 1462  481 (S22W46 L=264)   397    111        0 (1418/ 465-1523/ 494)  35.5 W43-W50 S23-S18
     11 1119  381 (S39W31 L=249)   774    120        1 (1070/ 344-1167/ 435)  82.9 W28-W33 S42-S34
     12 1257  294 (S39W47 L=265)   979    222        2 (1177/ 237-1348/ 371) -81.9 W45-W50 S45-S31
     13  857  280 (S57W21 L=239)   336     52        0 ( 845/ 246- 871/ 311) -45.0 W18-W25 S60-S54
  

    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